﻿Public Class slideJQuery
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            carregaImagens()
        End If
    End Sub

    Public Sub carregaImagens()
        Dim serMap As String = Server.MapPath("../imgs")
        Dim dir As New System.IO.DirectoryInfo(serMap)
        Me.divImgs.InnerHtml() = "<img src='../imgs/Doctors.jpg' />"
        Dim array As Array = dir.GetFiles
        For i As Integer = 0 To array.Length - 1
            Me.divImgs.InnerHtml() += "<img src='../imgs/" & array(i).ToString & "' /> "
        Next
    End Sub

End Class